home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / gateway.idb / usr / WebFace / Source / 20-NetworkServices / routing / gateways-config.frm.z / gateways-config.frm
Encoding:
Text File  |  1997-07-30  |  11.3 KB  |  412 lines
  1. #!/usr/bin/perl5
  2. #
  3. # gateways-config.cgi
  4. #
  5. # Copyright 1988-1996 Silicon Graphics, Inc.
  6. # All rights reserved.
  7. #
  8. # This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  9. # the contents of this file may not be disclosed to third parties, copied or
  10. # duplicated in any form, in whole or in part, without the prior written
  11. # permission of Silicon Graphics, Inc.
  12. #
  13. # RESTRICTED RIGHTS LEGEND:
  14. # Use, duplication or disclosure by the Government is subject to restrictions
  15. # as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  16. # and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  17. # successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  18. # rights reserved under the Copyright Laws of the United States.
  19. #
  20. # $Id: gateways-config.frm,v 1.36 1997/06/24 22:20:51 shotes Exp $
  21.  
  22. require "/usr/OnRamp/lib/OnRamp.pm";
  23. require "/usr/OnRamp/lib/java.pm";
  24.  
  25. $conf = "/etc/gateways";
  26. $dummy = "/etc/gateways.dummy";
  27. $myname = "gateways-config.cgi";
  28. $title = "Gateway Configuration";
  29.  
  30. $js_main =
  31. "type = \"address\";
  32. $js_account_main
  33. $js_error_box
  34. $js_ip
  35. function testAdd(form) {
  36.     if(form.destination.value == \"\") {
  37.         errorBox (form.destination, \"To add a new gateway, first enter \\na \"
  38.             + \"destination IP address.\");
  39.         return (false);
  40.     }
  41.     if (!testIPaddress(form.destination.value, false)) {
  42.         errorBox (form.destination, \"The destination address \" + 
  43.             form.destination.value + \"\\nis invalid.\");
  44.         return (false);
  45.     }
  46.     return (true);
  47. }";
  48.  
  49. $js_add =
  50. "$js_standard
  51. $js_error_box
  52. $js_ip
  53. function checkForm(form)  {
  54.     if (form.route.value == \"\") { 
  55.         errorBox(form.route, \"Route interface required.\");
  56.     }
  57.     if (!testIPaddress(form.route.value, false)) {
  58.         errorBox(form.route, \"Invalid route interface address.\");
  59.         return (false);
  60.     }
  61.     if (!testInt(form.metric)) return (false);
  62.     return (true);
  63. }
  64. function testInt(Ctrl) {
  65.     if (Ctrl.value == \"\") { 
  66.         errorBox (Ctrl, \"The number of hops is required.\"); 
  67.         return (false); 
  68.     }
  69.     start = 0;  
  70.     while (Ctrl.value.charAt(start) == ' ') { start++; }
  71.     end = Ctrl.value.length-1; 
  72.     while (Ctrl.value.charAt(end) == ' ') { end--; }
  73.     for (n = start; n <= end; n++) {
  74.         digit = Ctrl.value.charAt(n); 
  75.         if(! checkInt_c(digit, 10)) { 
  76.             errorBox (Ctrl, \"The number of hops must be \\na valid integer.\"); 
  77.             return (false); 
  78.         }
  79.     }
  80.     str = Ctrl.value.substring(start,end+1); num = parseInt(str);
  81.     if (num > 16) { 
  82.         errorBox (Ctrl, \"The number of hops must be \\nless than 16.\"); 
  83.         return (false); 
  84.     }
  85.     return (true);
  86. }";
  87.  
  88. $js_edit =
  89. "$js_standard
  90. $js_error_box
  91. $js_ip
  92. function checkForm(form) {
  93.     if (form.route.value == \"\") { 
  94.         errorBox(form.route, \"Route interface required.\");
  95.     }
  96.     if (!testIPaddress(form.route.value, false)) {
  97.         errorBox(form.route, \"Invalid route interface address.\");
  98.         return (false);
  99.     }
  100.     if (!testInt(form.metric)) return (false);
  101.     return (true);
  102. }
  103. function testInt(Ctrl) {
  104.     if (Ctrl.value == \"\") { 
  105.         errorBox (Ctrl, \"The number of hops is required.\"); 
  106.         return (false); 
  107.     }
  108.     start = 0;  
  109.     while (Ctrl.value.charAt(start) == ' ') { start++; }
  110.     end = Ctrl.value.length-1; 
  111.     while (Ctrl.value.charAt(end) == ' ') { end--; }
  112.     for (n = start; n <= end; n++) {
  113.         digit = Ctrl.value.charAt(n); 
  114.         if(! checkInt_c(digit, 10)) { 
  115.             errorBox (Ctrl, \"The number of hops must be \\na valid integer.\"); 
  116.             return (false); 
  117.         }
  118.     }
  119.     str = Ctrl.value.substring(start,end+1); num = parseInt(str);
  120.     if (num > 16) { 
  121.         errorBox (Ctrl, \"The number of hops must be \\nless than 16.\"); 
  122.         return (false); 
  123.     }
  124.     return (true);
  125. }";
  126.  
  127.  
  128. print "Content-type: text/html\n\n";
  129.  
  130. &get_fields;
  131. &getGateways;
  132.  
  133. $delete = 0;
  134.  
  135. if (%fld) {
  136.     $help = $document_root . $ENV{"SCRIPT_NAME"};
  137.     $help =~ s/cgi$/hlp/;
  138.     exec $help if ($fld{'help'} eq "Help");
  139.  
  140.     $fld{'chosen'} =~ /([\w.]+)/;
  141.     $fld{'chosen'} = $1;
  142.     if ($fld{"add"}) { 
  143.         &validAdd;
  144.         $val{'metric'} = 1;
  145.         &getAdd;
  146.         exit 0; 
  147.     }
  148.     elsif ($fld{"doAdd"}) {
  149.         &valid(0);
  150.         &doAdd;
  151.         $fld{'destination'} = "";
  152.         &getGateways;
  153.     &routed_hup;
  154.     }
  155.     elsif ($fld{"doEdit"}) {
  156.         &valid(1);
  157.         &doEdit;
  158.         &getGateways;
  159.     &routed_hup;
  160.     }
  161.     elsif ($fld{"edit"}) {
  162.         &error(2,"To edit an existing gateway, first choose one from the list,
  163.             then click the edit button.") if !$fld{'chosen'};
  164.         &getGateways($fld{'chosen'});
  165.         &putEdit;
  166.         &getEdit;
  167.         exit 0; 
  168.     }
  169.     elsif ($fld{"delete"}) { 
  170.         &error(2,"To delete an existing gateway, first choose one from the 
  171.             list, then click the delete button.") if !$fld{'chosen'};
  172.         $delete = 1;
  173.         $message = qq|Click "Ok" to save changes.|; 
  174.     }
  175.     elsif ($fld{"doit"}) { 
  176.         if ($erd ne $fld{'erd'}) { &changeStatus; }
  177.         if ($fld{'delGateway'}) { &doDelete; };
  178.         &getGateways;
  179.     &routed_hup;
  180.     }
  181.     else {
  182.         $message = "Use buttons to submit form.";
  183.     }
  184.  
  185.     if (!$message) { $message = "No change made."; }
  186.     %val = %fld; 
  187. } 
  188.  
  189. &generic;
  190.  
  191. sub routed_hup {
  192.     system("/sbin/killall", "routed");
  193.     
  194.     open(IN,"< /etc/config/routed.options");
  195.     while(<IN>) {
  196.         chop($_);
  197.         $configFile .= " $_";
  198.     }
  199.     close(IN);
  200.  
  201.     system("/usr/etc/routed $configFile > /dev/null 2>&1");
  202. }
  203.  
  204. sub valid {
  205.     &error($_[0],"Invalid route address.") if !$fld{'route'} || &check_ipaddr($fld{'route'});
  206.     &error($_[0],"Number of hops must be an integer.") if $fld{'metric'} =~ /[^0-9-]/;
  207.     &error($_[0],"Number of hops must be greater than zero.") if $fld{'metric'} < 1;
  208.     &error($_[0],"Number of hops must be no greater than 16.") if $fld{'metric'} > 16;    
  209. } 
  210.  
  211. sub validAdd {
  212.     &error(2,"You must provide a gateway address.") if !$fld{'destination'};
  213.     &error(2,"Invalid gateway address.") if &check_ipaddr($fld{'destination'});   
  214. }
  215.  
  216. sub error {
  217.     &error_block($_[1]);
  218.     %val = %fld;
  219.     if ($_[0] == 0) { &getAdd; }
  220.     elsif ($_[0] == 1) { &getEdit; }
  221.     else { &generic; }
  222.     exit 0;
  223. }
  224.  
  225. sub changeStatus {
  226.     if ($fld{'erd'} eq 'Yes') { 
  227.     system("/etc/chkconfig", "routed", "on");
  228.     system("/etc/killall", "routed");
  229.     open(IN,"< /etc/config/routed.options");
  230.     while(<IN>) {
  231.         chop($_);
  232.         $configFile .= " $_";
  233.     }
  234.     close(IN);
  235.     system("/usr/etc/routed $configFile > /dev/null 2>&1");
  236.     $message = "Dynamic routing enabled.";
  237.     }
  238.     else {
  239.     system("/etc/chkconfig", "routed", "off");
  240.     system("/etc/killall", "routed");
  241.         $message = "Dynamic routing disabled.";
  242.     }
  243. }
  244.    
  245. sub doDelete {
  246.     open(IN,"< $conf");
  247.     open(OUT,"> $dummy");
  248.     while(<IN>) {
  249.     @items = split(/\s+/);
  250.     if ($items[1] eq $fld{'delGateway'}) { print OUT "# $_"; }
  251.     else { print OUT $_; }
  252.     }
  253.     close(IN);
  254.     close(OUT);
  255.     rename($dummy,$conf);
  256.  
  257.     $message = "Gateway deleted.";
  258. }
  259.  
  260. sub doAdd {
  261.     open(OUT,">> $conf");
  262.     print OUT "$fld{'type'} $fld{'destination'} gateway $fld{'route'} ";
  263.     print OUT "metric $fld{'metric'} $fld{'mode'}\n";
  264.     close(OUT);
  265.  
  266.     $message = "Gateway added.";
  267. }
  268.  
  269. sub putEdit {
  270.     $val{'type'} = $type;
  271.     $val{'mode'} = $mode;
  272.     $val{'route'} = $rout;
  273.     $val{'metric'} = $metr;
  274. }
  275.  
  276. sub doEdit {
  277.     open(IN,"< $conf");
  278.     open(OUT,"> $dummy");
  279.     while(<IN>) {
  280.     @items = split(/\s+/);
  281.     if ($items[1] eq $fld{'chosen'}) { print OUT "# $_"; }
  282.     else { print OUT $_; }
  283.     }
  284.     print OUT "$fld{'type'} $fld{'chosen'} gateway $fld{'route'} ";
  285.     print OUT "metric $fld{'metric'} $fld{'mode'}\n";
  286.     close(IN);
  287.     close(OUT);
  288.     rename($dummy,$conf);
  289.  
  290.     $message = "Gateway edited.";
  291. }
  292.     
  293. sub getEdit {
  294.     &js_title_block($title,$js_edit);
  295.     &header_block("Edit Gateway");
  296.  
  297.     print "<form name=StandardForm action=$myname method=post onSubmit=\"return runSubmit()\">\n";
  298.  
  299.     print "<input type=hidden name=chosen value=$fld{'chosen'}>";
  300.  
  301.     print "<center><table width=450>";
  302.  
  303.     print "<tr><th align=left>IP address of gateway destination:</th><td>
  304.         <tt>$fld{'chosen'}</tt></td></tr>";
  305.     print "<tr><th align=left>IP address of route interface:</th><td>",
  306.         &text('route',$val{'route'},16),"</td></tr>";
  307.     print "<tr><th align=left>Type of network gateway:</th><td>",
  308.         &select('type',$val{'type'},'net','host'),"</td></tr>";
  309.     print "<tr><th align=left>Mode of network gateway:</th><td>",
  310.         &select('mode',$val{'mode'},'active','passive'),"</td></tr>";
  311.     print "<tr><th align=left>Number of hops from route interface to 
  312.             destination:</th><td>",
  313.         &text('metric',$val{'metric'},5),"</td></tr>";
  314.  
  315.     print "</table></center>";
  316.  
  317.     print &js_buttons('doEdit','Ok','onClick="markOK()"','onClick="markOther()"');
  318.     
  319.     print '</form>';
  320. }
  321.  
  322. sub getAdd {
  323.     &js_title_block($title,$js_add);
  324.     &header_block("Add New Gateway");
  325.  
  326.     print "<form name=StandardForm action=$myname method=post onSubmit=\"return runSubmit()\">\n";
  327.  
  328.     print "<input type=hidden name=destination value=$fld{'destination'}>";
  329.  
  330.     print "<center><table width=450>";
  331.  
  332.     print "<tr><th align=left>IP address of gateway destination:</th><td>
  333.         <tt>$fld{'destination'}</tt></td></tr>";
  334.     print "<tr><th align=left>IP address of route interface:</th><td>",
  335.         &text('route',$val{'route'},16),"</td></tr>";
  336.     print "<tr><th align=left>Type of network gateway:</th><td>",
  337.         &select('type',$val{'type'},'net','host'),"</td></tr>";
  338.     print "<tr><th align=left>Mode of network gateway:</th><td>",
  339.         &select('mode',$val{'mode'},'active','passive'),"</td></tr>";
  340.     print "<tr><th align=left>Number of hops from route interface to 
  341.             destination:</th><td>",
  342.         &text('metric',$val{'metric'},5),"</td></tr>";
  343.  
  344.     print "</table></center>";
  345.  
  346.     print &js_buttons('doAdd','Ok','onClick="markOK()"','onClick="markOther()"');
  347.     
  348.     print '</form>';
  349. }
  350.    
  351. sub generic {
  352.     &js_title_block($title,$js_main);
  353.     &header_block($title);
  354.  
  355.     print "<i>$message</i>";
  356.  
  357.     print "<form name=AccountForm action=$myname method=post onSubmit=\"return runSubmit()\">\n";
  358.  
  359.     print "<center><table width=450>\n";
  360.  
  361.     print "<tr><th align=left>Enable dynamic routing:</th><th align=left>",
  362.         &radio('erd',$erd,'Yes','No'),"</th></tr>\n";
  363.  
  364.     print "<tr><th align=left>";
  365.     print qq|<input type=submit name=add value="Add New Gateway" onClick="markAdd()"></th>|;
  366.     print "\n<td><input size=19 type=text name=destination 
  367.         value=$val{'destination'}>";
  368.     print "</td></tr>\n";
  369.  
  370.     if ($delete) { 
  371.     undef @locList;
  372.     foreach $arg (@gateways) {
  373.         if ($arg ne $fld{'chosen'}) { 
  374.         push(@locList,$arg); }
  375.     }
  376.     print "<input type=hidden name=delGateway value=$fld{'chosen'}>\n"; 
  377.     } else { @locList = @gateways; }
  378.  
  379.     print "<tr><th align=left>";
  380.     print qq|<input type=submit name=edit value="Edit Selected Gateway" onClick="markEdit()"></th>|;
  381.     print "\n<td rowspan=2>", &choice_list(*locList,"chosen",20), "</td></tr>\n";
  382.  
  383.     print "<tr><th align=left>";
  384.     print qq|<input type=submit name=delete value="Delete Selected Gateway" onClick="markDelete()"></th></tr>|;
  385.  
  386.     print "\n</table></center>\n";
  387.  
  388.     print &js_buttons('doit','Ok','onClick="markOther()"','onClick="markOther()"');
  389.     
  390.     print '</form>';
  391. }
  392.  
  393. sub getGateways {
  394.     undef @gateways;
  395.  
  396.     open(GATE, "< $conf");
  397.     while (<GATE>) {
  398.     @items = split(/\s+/);
  399.     if ($items[0] ne 'net' && $items[0] ne 'host') { next; }
  400.     push(@gateways,$items[1]);
  401.     if ($items[1] eq $_[0]) {
  402.         $type = $items[0];
  403.         $rout = $items[3];
  404.         $metr = $items[5];
  405.         $mode = $items[6];
  406.     }
  407.     }
  408.     close(GATE);
  409.  
  410.     $erd = &get_config("routed");
  411. }
  412.